home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 039a / pdm_106.zip / QC20.PRG < prev    next >
Text File  |  1991-06-08  |  16KB  |  514 lines
  1.  
  2. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  3. * Program Name: QC20.PRG
  4. * Description.: Driver for PDM Menu System program
  5. * Language....: Clipper S'87
  6. * LIB required: CC.LIB v1.04, EXTEND.LIB
  7. * Gen Time....: 06/08/91 17:59:31
  8. * Generated by: PDM Sys - the ClipCode Pull Down Menu System  v1.06
  9. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  10. *** Set CLIPPER Environment ***
  11. SET CURSOR OFF
  12. SET DELETED ON                          && Filter out Deleted Records
  13. SET EXACT ON
  14. SET SCOREBOARD OFF
  15. SET SOFTSEEK OFF
  16.  
  17. PDMSETUP()
  18.  
  19. *** Set Color for Initial Screen ***
  20. SET COLOR TO ( PDM_CONFG[7] )
  21. @1,0 SAY REPLICATE( CHR( PDM_CONFG[8] ), 1840 ) && char for init screen
  22.  
  23. SET COLOR TO ( PDM_COLOR[1] )           && hcolor when not selected
  24. @ PDM_CONFG[2],00
  25.  
  26. SET COLOR TO ( PDM_CONFG[6] )           && color for init bottom panel
  27. @ PDM_CONFG[4],00
  28. @ PDM_CONFG[4],00 SAY PDM_CONFG[9]      && text for init bottom panel
  29.  
  30. MENUPD( 0, 0 )                          && just display h menu
  31.  
  32. PRIVATE key, hOpt, vOpt, pdSEL, sv_panel
  33. pdSel= 1
  34. DO WHILE .T.
  35.  
  36.   *SETCANCEL(.F.)                        && Disable alt-C interrupt
  37.   INKEY(0)
  38.   key= LASTKEY()                        && key= INKEY(0) misses alt-D
  39.   *SETCANCEL(.T.)                        && Enable alt-C interrupt
  40.  
  41.   DO CASE
  42.   *?*CASE key = 28                         && F1=Help
  43.  
  44.   *?*CASE key = -2                         && F3=Exit
  45.   ***  EXIT2DOS()
  46.  
  47.   CASE key = 27                         && Exit
  48.     PRIVATE Opts[2]
  49.     Opts[1]= "Yes"
  50.     Opts[2]= "No"
  51.      * Syntx: message text,       [ title,prmpts,colors,mRow,mColm,TmO ]
  52.     IF BOXMSG( "Exit Program to DOS?",.F., Opts ) = 1
  53.       EXIT
  54.     ELSE
  55.       LOOP
  56.     ENDIF
  57.   CASE key = -9                         && F10=Menu
  58.     hOpt=  1
  59.     vOpt=  0
  60.   *?*CASE key = 3                          && PgDn=Next
  61.   ***  SKIP 1
  62.   ***  IF EOF()
  63.   ***    BOXMSG( "At End-of-File" )
  64.   ***    SKIP -1
  65.   ***  ENDIF
  66.   *?*CASE key = 18                         && PgUp=Prev
  67.   ***  SKIP -1
  68.   ***  IF BOF()
  69.   ***    BOXMSG( "At Beginning-of-File" )
  70.   ***  ENDIF
  71.  
  72.   CASE ASCAN( PDM_HOTKY, key ) > 0      && If found, returns the ss
  73.     hOpt=  ASCAN( PDM_HOTKY, key )
  74.     vOpt=  1
  75.   OTHERWISE
  76.     LOOP
  77.   ENDCASE
  78.  
  79.   IF hOpt < 1
  80.     LOOP
  81.   ENDIF
  82.  
  83.   sv_panel= BOXSAVE( PDM_CONFG[4],00, PDM_CONFG[4],79 )
  84.   pdSel   = 1
  85.   DO WHILE pdSel <> 0
  86.  
  87.     pdSel= MENUPD( @hOpt, @vOpt )
  88.     IF pdSel > 0
  89.       DO CASE
  90.       OTHERWISE
  91.         * Syntx: message text/array, [ title,prmpts,colors,mRow,mColm,TmO ]
  92.         BOXMSG( "PDM Option Selected: "+LTRIM( STR(pdSel) ) )
  93.       ENDCASE
  94.     ENDIF
  95.   ENDDO WHILE pdSel <> 0
  96.   BOXREST( sv_panel )
  97.  
  98. ENDDO
  99. SET COLOR TO
  100. SET CURSOR ON
  101. CLEAR
  102. QUIT                                                    && End of: MAIN LINE
  103. *≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡*
  104.  
  105. *------------------------------------------------------------------------------*
  106. * Function....: PDMSETUP()
  107. * Purpose.....: UDF to Create PDMSETUP()
  108. * Parameters..: none
  109. * Generated by: PDM - the ClipCode Pull Down Menu System
  110. * Assumption..: the presence of these PUBLIC arrays:
  111. *             : <arrC>: PDM_HPROM = horizontal menu prompt text
  112. *             : <arrN>: PDM_HCOLM = horizontal starting columns for prompts
  113. *             : <arrC>: PDM_HTRIG = horizontal trigger letters
  114. *             : <arrN>: PDM_HTPOS = horizontal trigger letter positions
  115. *             : <arrN>: PDM_VSS1  = starting array subscript
  116. *             : <arrN>: PDM_VSS2  = ending array subscript
  117. *             : <arrC>: PDM_VPROM = vertical menu prompt text
  118. *             : <arrC>: PDM_VTRIG = vertical trigger letters
  119. *             : <arrN>: PDM_VCOLM = vertical starting columns for v prompts
  120. *             : <arrN>: PDM_VTPOS = vertical trigger letter positions
  121. *             : <arrL>: PDM_VACTV = vertical active status array
  122. *             : <arrC>: PDM_COLOR = PDM color strings for SET COLOR TO
  123. *                                     [ 1] hcolor when not selected
  124. *                                     [ 2] hcolor for unselected trigger
  125. *                                     [ 3] hcolor for selected option
  126. *                                     [ 4] hcolor for selected trigger
  127. *                                     [ 5] vcolor for box
  128. *                                     [ 6] vcolor when not selected
  129. *                                     [ 7] vcolor for unselected trigger
  130. *                                     [ 8] vcolor for selected option
  131. *                                     [ 9] vcolor for selected trigger
  132. *                                     [10] vcolor for inactive option
  133. *                                     [11] vcolor for message row
  134. *             : <arrC>: PDM_VMSSG = vertical message help text
  135. *             : <arrX>: PDM_CONFG = PDM configuration
  136. *                                     [1] = expN: box type: 0,1,2
  137. *                                     [2] = expN: row for horiz menu
  138. *                                     [3] = expN: row for box top
  139. *                                     [4] = expN: message row
  140. *                                     [5] = expN: time out
  141. *                                     [6] = expC: color for init bottom panel
  142. *                                     [7] = expC: color for init screen
  143. *                                     [8] = expN: char for init screen
  144. *                                     [9] = expC: text for init bottom panel
  145. * Calls.......: PDM_INIT()
  146. * CC.LIB Calls: ALONGEST(), ATNEXT()
  147. * Language....: Clipper S'87
  148. * Returns.....: <expL>: .T.
  149. *------------------------------------------------------------------------------*
  150. FUNCTION PDMSETUP
  151.  
  152. PRIVATE dimh, dimv, ss
  153.  
  154. *** MENUPD Horizontal ***
  155. dimh= 10
  156. PUBLIC PDM_HPROM[dimh]                  && horizontal menu prompt text
  157. PDM_HPROM[ 1]= " File "
  158. PDM_HPROM[ 2]= " Edit "
  159. PDM_HPROM[ 3]= " View "
  160. PDM_HPROM[ 4]= " Search "
  161. PDM_HPROM[ 5]= " Make "
  162. PDM_HPROM[ 6]= " Run "
  163. PDM_HPROM[ 7]= " Debug "
  164. PDM_HPROM[ 8]= " Utility "
  165. PDM_HPROM[ 9]= " Options "
  166. PDM_HPROM[10]= " Help "
  167.  
  168. PUBLIC PDM_HCOLM[dimh]                  && horizontal starting columns for prompts
  169. PDM_HCOLM[ 1]= 1
  170. PDM_HCOLM[ 2]= 7
  171. PDM_HCOLM[ 3]= 13
  172. PDM_HCOLM[ 4]= 19
  173. PDM_HCOLM[ 5]= 27
  174. PDM_HCOLM[ 6]= 33
  175. PDM_HCOLM[ 7]= 38
  176. PDM_HCOLM[ 8]= 45
  177. PDM_HCOLM[ 9]= 54
  178. PDM_HCOLM[10]= 73
  179.  
  180. PUBLIC PDM_HOTKY[dimh]                  && horiz Hot/alt keys INKEY()
  181. PDM_HOTKY[ 1]= 289
  182. PDM_HOTKY[ 2]= 274
  183. PDM_HOTKY[ 3]= 303
  184. PDM_HOTKY[ 4]= 287
  185. PDM_HOTKY[ 5]= 306
  186. PDM_HOTKY[ 6]= 275
  187. PDM_HOTKY[ 7]= 288
  188. PDM_HOTKY[ 8]= 278
  189. PDM_HOTKY[ 9]= 280
  190. PDM_HOTKY[10]= 291
  191.  
  192. PUBLIC PDM_HTRIG[dimh]                  && horizontal trigger letters
  193. PDM_HTRIG[ 1]= "F"
  194. PDM_HTRIG[ 2]= "E"
  195. PDM_HTRIG[ 3]= "V"
  196. PDM_HTRIG[ 4]= "S"
  197. PDM_HTRIG[ 5]= "M"
  198. PDM_HTRIG[ 6]= "R"
  199. PDM_HTRIG[ 7]= "D"
  200. PDM_HTRIG[ 8]= "U"
  201. PDM_HTRIG[ 9]= "O"
  202. PDM_HTRIG[10]= "H"
  203.  
  204. PUBLIC PDM_HTPOS[dimh]                  && horizontal trigger letter  positions
  205. PDM_HTPOS[ 1]= 2
  206. PDM_HTPOS[ 2]= 2
  207. PDM_HTPOS[ 3]= 2
  208. PDM_HTPOS[ 4]= 2
  209. PDM_HTPOS[ 5]= 2
  210. PDM_HTPOS[ 6]= 2
  211. PDM_HTPOS[ 7]= 2
  212. PDM_HTPOS[ 8]= 2
  213. PDM_HTPOS[ 9]= 2
  214. PDM_HTPOS[10]= 2
  215.  
  216. *** PDMENUV Vertical ***
  217. PUBLIC PDM_VSS1[dimh]                   && starting array subscript
  218. PDM_VSS1[ 1]= 1
  219. PDM_VSS1[ 2]= 13
  220. PDM_VSS1[ 3]= 20
  221. PDM_VSS1[ 4]= 26
  222. PDM_VSS1[ 5]= 35
  223. PDM_VSS1[ 6]= 42
  224. PDM_VSS1[ 7]= 48
  225. PDM_VSS1[ 8]= 59
  226. PDM_VSS1[ 9]= 65
  227. PDM_VSS1[10]= 70
  228.  
  229. dimv= 73
  230. PUBLIC PDM_VPROM[dimv]                  && vertical menu prompt text
  231. PDM_VPROM[ 1]= " New                "
  232. PDM_VPROM[ 2]= " Open...            "
  233. PDM_VPROM[ 3]= " Open Last File  F2 "
  234. PDM_VPROM[ 4]= " Merge...           "
  235. PDM_VPROM[ 5]= " Save               "
  236. PDM_VPROM[ 6]= " Save As...         "
  237. PDM_VPROM[ 7]= " Save All           "
  238. PDM_VPROM[ 8]= "-"
  239. PDM_VPROM[ 9]= " Print...           "
  240. PDM_VPROM[10]= " DOS Shell          "
  241. PDM_VPROM[11]= "-"
  242. PDM_VPROM[12]= " Exit        Alt+F4 "
  243. PDM_VPROM[13]= " Undo  Alt+Backspace "
  244. PDM_VPROM[14]= " Cut       Shift+Del "
  245. PDM_VPROM[15]= " Copy       Ctrl+Ins "
  246. PDM_VPROM[16]= " Paste     Shift+Ins "
  247. PDM_VPROM[17]= " Clear           Del "
  248. PDM_VPROM[18]= "-"
  249. PDM_VPROM[19]= " Read Only           "
  250. PDM_VPROM[20]= " Source...          "
  251. PDM_VPROM[21]= " Include...         "
  252. PDM_VPROM[22]= "-"
  253. PDM_VPROM[23]= " Output Screen   F4 "
  254. PDM_VPROM[24]= " Maximize  Ctrl+F10 "
  255. PDM_VPROM[25]= " Windows...         "
  256. PDM_VPROM[26]= " Find...                  "
  257. PDM_VPROM[27]= " Selected Text     Ctrl+\ "
  258. PDM_VPROM[28]= " Repeat Last Find      F3 "
  259. PDM_VPROM[29]= " Change...                "
  260. PDM_VPROM[30]= "-"
  261. PDM_VPROM[31]= " Function...              "
  262. PDM_VPROM[32]= "-"
  263. PDM_VPROM[33]= " Next Error      Shift+F3 "
  264. PDM_VPROM[34]= " Previous Error  Shift+F4 "
  265. PDM_VPROM[35]= " Compile File      UNTITLED.C   "
  266. PDM_VPROM[36]= " Build Program     UNTITLED.EXE "
  267. PDM_VPROM[37]= " Rebuild All       UNTITLED.EXE "
  268. PDM_VPROM[38]= "-"
  269. PDM_VPROM[39]= " Set Program List...            "
  270. PDM_VPROM[40]= " Edit Program List...           "
  271. PDM_VPROM[41]= " Clear Program List             "
  272. PDM_VPROM[42]= " Restart       Shift+F5 "
  273. PDM_VPROM[43]= " Go                  F5 "
  274. PDM_VPROM[44]= " Continue To Cursor  F7 "
  275. PDM_VPROM[45]= " Trace Into          F8 "
  276. PDM_VPROM[46]= " Step Over          F10 "
  277. PDM_VPROM[47]= " Animate                "
  278. PDM_VPROM[48]= " Calls...            "
  279. PDM_VPROM[49]= " Breakpoint...    F9 "
  280. PDM_VPROM[50]= " Watchpoint...       "
  281. PDM_VPROM[51]= "-"
  282. PDM_VPROM[52]= " Watch Value...      "
  283. PDM_VPROM[53]= " Modify Value...     "
  284. PDM_VPROM[54]= "-"
  285. PDM_VPROM[55]= " History On          "
  286. PDM_VPROM[56]= " Undo                "
  287. PDM_VPROM[57]= " Replay              "
  288. PDM_VPROM[58]= " Truncate User Input "
  289. PDM_VPROM[59]= " Run DOS Command...    "
  290. PDM_VPROM[60]= " Customize Menu...     "
  291. PDM_VPROM[61]= "-"
  292. PDM_VPROM[62]= " Brief Editor  Alt+F10 "
  293. PDM_VPROM[63]= " PFM            Alt+F9 "
  294. PDM_VPROM[64]= " Learn QuickC          "
  295. PDM_VPROM[65]= " Display...     "
  296. PDM_VPROM[66]= " Make...        "
  297. PDM_VPROM[67]= " Run / Debug... "
  298. PDM_VPROM[68]= " Environment... "
  299. PDM_VPROM[69]= " Full Menus     "
  300. PDM_VPROM[70]= " Index                  "
  301. PDM_VPROM[71]= " Contents               "
  302. PDM_VPROM[72]= " Topic:              F1 "
  303. PDM_VPROM[73]= " Help On Help  Shift+F1 "
  304.  
  305. PUBLIC PDM_VTRIG[dimv]                  && vertical trigger letters
  306. PDM_VTRIG[ 1]= "N"
  307. PDM_VTRIG[ 2]= "O"
  308. PDM_VTRIG[ 3]= "O"
  309. PDM_VTRIG[ 4]= "M"
  310. PDM_VTRIG[ 5]= "S"
  311. PDM_VTRIG[ 6]= "A"
  312. PDM_VTRIG[ 7]= "v"
  313. PDM_VTRIG[ 8]= "-"
  314. PDM_VTRIG[ 9]= "P"
  315. PDM_VTRIG[10]= "D"
  316. PDM_VTRIG[11]= "-"
  317. PDM_VTRIG[12]= "x"
  318. PDM_VTRIG[13]= "U"
  319. PDM_VTRIG[14]= "C"
  320. PDM_VTRIG[15]= "o"
  321. PDM_VTRIG[16]= "P"
  322. PDM_VTRIG[17]= "l"
  323. PDM_VTRIG[18]= "-"
  324. PDM_VTRIG[19]= "R"
  325. PDM_VTRIG[20]= "S"
  326. PDM_VTRIG[21]= "I"
  327. PDM_VTRIG[22]= "-"
  328. PDM_VTRIG[23]= "O"
  329. PDM_VTRIG[24]= "z"
  330. PDM_VTRIG[25]= "W"
  331. PDM_VTRIG[26]= "F"
  332. PDM_VTRIG[27]= "S"
  333. PDM_VTRIG[28]= "R"
  334. PDM_VTRIG[29]= "C"
  335. PDM_VTRIG[30]= "-"
  336. PDM_VTRIG[31]= "u"
  337. PDM_VTRIG[32]= "-"
  338. PDM_VTRIG[33]= "N"
  339. PDM_VTRIG[34]= "P"
  340. PDM_VTRIG[35]= "C"
  341. PDM_VTRIG[36]= "B"
  342. PDM_VTRIG[37]= "R"
  343. PDM_VTRIG[38]= "-"
  344. PDM_VTRIG[39]= "S"
  345. PDM_VTRIG[40]= "E"
  346. PDM_VTRIG[41]= "P"
  347. PDM_VTRIG[42]= "R"
  348. PDM_VTRIG[43]= "G"
  349. PDM_VTRIG[44]= "C"
  350. PDM_VTRIG[45]= "T"
  351. PDM_VTRIG[46]= "S"
  352. PDM_VTRIG[47]= "A"
  353. PDM_VTRIG[48]= "C"
  354. PDM_VTRIG[49]= "B"
  355. PDM_VTRIG[50]= "p"
  356. PDM_VTRIG[51]= "-"
  357. PDM_VTRIG[52]= "W"
  358. PDM_VTRIG[53]= "M"
  359. PDM_VTRIG[54]= "-"
  360. PDM_VTRIG[55]= "H"
  361. PDM_VTRIG[56]= "U"
  362. PDM_VTRIG[57]= "R"
  363. PDM_VTRIG[58]= "T"
  364. PDM_VTRIG[59]= "R"
  365. PDM_VTRIG[60]= "C"
  366. PDM_VTRIG[61]= "-"
  367. PDM_VTRIG[62]= "B"
  368. PDM_VTRIG[63]= "P"
  369. PDM_VTRIG[64]= "L"
  370. PDM_VTRIG[65]= "D"
  371. PDM_VTRIG[66]= "M"
  372. PDM_VTRIG[67]= "R"
  373. PDM_VTRIG[68]= "E"
  374. PDM_VTRIG[69]= "F"
  375. PDM_VTRIG[70]= "I"
  376. PDM_VTRIG[71]= "C"
  377. PDM_VTRIG[72]= "T"
  378. PDM_VTRIG[73]= "H"
  379.  
  380. PUBLIC PDM_VTPOS[dimv]                  && vertical trigger letter positions
  381. PDM_VTPOS[ 1]= 2
  382. PDM_VTPOS[ 2]= 2
  383. PDM_VTPOS[ 3]= 2
  384. PDM_VTPOS[ 4]= 2
  385. PDM_VTPOS[ 5]= 2
  386. PDM_VTPOS[ 6]= 7
  387. PDM_VTPOS[ 7]= 4
  388. PDM_VTPOS[ 8]= 1
  389. PDM_VTPOS[ 9]= 2
  390. PDM_VTPOS[10]= 2
  391. PDM_VTPOS[11]= 1
  392. PDM_VTPOS[12]= 3
  393. PDM_VTPOS[13]= 2
  394. PDM_VTPOS[14]= 2
  395. PDM_VTPOS[15]= 3
  396. PDM_VTPOS[16]= 2
  397. PDM_VTPOS[17]= 3
  398. PDM_VTPOS[18]= 1
  399. PDM_VTPOS[19]= 2
  400. PDM_VTPOS[20]= 2
  401. PDM_VTPOS[21]= 2
  402. PDM_VTPOS[22]= 1
  403. PDM_VTPOS[23]= 2
  404. PDM_VTPOS[24]= 8
  405. PDM_VTPOS[25]= 2
  406. PDM_VTPOS[26]= 2
  407. PDM_VTPOS[27]= 2
  408. PDM_VTPOS[28]= 2
  409. PDM_VTPOS[29]= 2
  410. PDM_VTPOS[30]= 1
  411. PDM_VTPOS[31]= 2
  412. PDM_VTPOS[32]= 1
  413. PDM_VTPOS[33]= 2
  414. PDM_VTPOS[34]= 2
  415. PDM_VTPOS[35]= 2
  416. PDM_VTPOS[36]= 2
  417. PDM_VTPOS[37]= 2
  418. PDM_VTPOS[38]= 1
  419. PDM_VTPOS[39]= 2
  420. PDM_VTPOS[40]= 2
  421. PDM_VTPOS[41]= 8
  422. PDM_VTPOS[42]= 2
  423. PDM_VTPOS[43]= 2
  424. PDM_VTPOS[44]= 2
  425. PDM_VTPOS[45]= 2
  426. PDM_VTPOS[46]= 2
  427. PDM_VTPOS[47]= 2
  428. PDM_VTPOS[48]= 2
  429. PDM_VTPOS[49]= 2
  430. PDM_VTPOS[50]= 7
  431. PDM_VTPOS[51]= 1
  432. PDM_VTPOS[52]= 2
  433. PDM_VTPOS[53]= 2
  434. PDM_VTPOS[54]= 1
  435. PDM_VTPOS[55]= 2
  436. PDM_VTPOS[56]= 2
  437. PDM_VTPOS[57]= 2
  438. PDM_VTPOS[58]= 2
  439. PDM_VTPOS[59]= 2
  440. PDM_VTPOS[60]= 2
  441. PDM_VTPOS[61]= 1
  442. PDM_VTPOS[62]= 2
  443. PDM_VTPOS[63]= 2
  444. PDM_VTPOS[64]= 2
  445. PDM_VTPOS[65]= 2
  446. PDM_VTPOS[66]= 2
  447. PDM_VTPOS[67]= 2
  448. PDM_VTPOS[68]= 2
  449. PDM_VTPOS[69]= 2
  450. PDM_VTPOS[70]= 2
  451. PDM_VTPOS[71]= 2
  452. PDM_VTPOS[72]= 2
  453. PDM_VTPOS[73]= 2
  454.  
  455. PUBLIC PDM_VACTV[dimv]                  && vertical active status array
  456. AFILL( PDM_VACTV, .T. )
  457. PDM_VACTV[ 3]= .F.
  458. PDM_VACTV[ 8]= .F.
  459. PDM_VACTV[11]= .F.
  460. PDM_VACTV[13]= .F.
  461. PDM_VACTV[14]= .F.
  462. PDM_VACTV[15]= .F.
  463. PDM_VACTV[16]= .F.
  464. PDM_VACTV[17]= .F.
  465. PDM_VACTV[18]= .F.
  466. PDM_VACTV[20]= .F.
  467. PDM_VACTV[22]= .F.
  468. PDM_VACTV[30]= .F.
  469. PDM_VACTV[31]= .F.
  470. PDM_VACTV[32]= .F.
  471. PDM_VACTV[33]= .F.
  472. PDM_VACTV[34]= .F.
  473. PDM_VACTV[35]= .F.
  474. PDM_VACTV[38]= .F.
  475. PDM_VACTV[40]= .F.
  476. PDM_VACTV[41]= .F.
  477. PDM_VACTV[48]= .F.
  478. PDM_VACTV[51]= .F.
  479. PDM_VACTV[54]= .F.
  480. PDM_VACTV[56]= .F.
  481. PDM_VACTV[57]= .F.
  482. PDM_VACTV[58]= .F.
  483. PDM_VACTV[61]= .F.
  484.  
  485. PUBLIC PDM_COLOR[11]                    && PDM color strings for SET COLOR TO
  486. PDM_COLOR[ 1]= "N/W"                     && [ 1] hcolor when not selected
  487. PDM_COLOR[ 2]= "W+/W"                    && [ 2] hcolor for unselected trigger
  488. PDM_COLOR[ 3]= "W/N"                     && [ 3] hcolor for selected option
  489. PDM_COLOR[ 4]= "W+/N"                    && [ 4] hcolor for selected trigger
  490. PDM_COLOR[ 5]= "N/W"                     && [ 5] vcolor for box
  491. PDM_COLOR[ 6]= "N/W"                     && [ 6] vcolor when not selected
  492. PDM_COLOR[ 7]= "W+/W"                    && [ 7] vcolor for unselected trigger
  493. PDM_COLOR[ 8]= "W/N"                     && [ 8] vcolor for selected option
  494. PDM_COLOR[ 9]= "W+/N"                    && [ 9] vcolor for selected trigger
  495. PDM_COLOR[10]= "N+/W"                    && [10] vcolor for inactive option
  496. PDM_COLOR[11]= "N/W"                     && [11] vcolor for message row
  497.  
  498. PUBLIC PDM_CONFG[9]                     && PDM configuration
  499. PDM_CONFG[1]= 1                          && [1] = expN: box type: 0,1,2
  500. PDM_CONFG[2]= 0                          && [2] = expN: row for horiz menu
  501. PDM_CONFG[3]= 2                          && [3] = expN: row for box top
  502. PDM_CONFG[4]= 24                         && [4] = expN: message row
  503. PDM_CONFG[5]= 0                          && [5] = expN: time out
  504. PDM_CONFG[6]= "N/W"                      && [6] = expC: color for init bottom panel
  505. PDM_CONFG[7]= "W+/B"                     && [7] = expC: color for init screen
  506. PDM_CONFG[8]= 176                        && [8] = expN: char for init screen
  507. *                                        && [9] = expC: text for init bottom panel
  508. PDM_CONFG[9]= " Enter=Select Esc=Cancel F1=Help F10=Menu "
  509.  
  510. PDM_INIT()                    && Initialize remaining optional PDM PUBLIC arrays
  511.  
  512. RETURN .T.                                                 && End of: PDMSETUP()
  513. *------------------------------------------------------------------------------*
  514. *<eof>